Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C/Applications/MacPerl 5.0.3/Preinstalled MacPerl (FAT)/lib/auto/POSIX/opendir.al

Text File | 1995-08-04 | 262 b | 13 lines | [once/pt: ]

# NOTE: Derived from :::lib:POSIX.pm.  Changes made here will be lost.
package POSIX;

sub opendir {
    usage "opendir(directory)" if @_ != 1;
    local($dirhandle) = &gensym;
    opendir($dirhandle, $_[0])
    ? $dirhandle
    : (ungensym($dirhandle), undef);
}

1;